C o n t r o l s   C l e a r T e x t B o x 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 
 
 B u t t o n   1   L a b e l   P r i m i 
 
 B u t t o n   P r i m i   C o l o r   G r e e n 
 
 S t o p 
 
 
 
 L a b e l   P r i m i 
 
 	 V a r i a b l e   N u m e r i c   n u m   =   1 
 
 	 
 
 	 F o r   v 1   =   1   T o   I n f i n i t y 
 
 	 	 n u m   =   n u m   +   1 
 
 	 	 
 
 	 	 F o r   v 2   =   2   T o   n u m   -   1 
 
 	 	 	 I f   M o d ( n u m ,   v 2 )   =   0 
 
 	 	 	 	 
 
 	 	 	 	 E x i t 
 
 	 	 	 E l s e 
 
 	 	 	 	 P r i n t   n u m   +   "   " 
 
 	 	 	 E n d I f 
 
 	 	 N e x t 
 
 	 	 
 
 	 	 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 